home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / door / ds40bqb.zip / PRMTDEMO.BAS < prev    next >
BASIC Source File  |  1991-10-24  |  1KB  |  20 lines
  1. ' $INCLUDE: 'DOORSORC.INT'
  2. PROGNAME$ = "Prompt Demo"                       ' Door name
  3. RELEASE$ = "1.0"                                ' Door release #
  4. CALL ClrScrn                                    ' Clear the screen
  5. CLOSE #1                                        ' Close configuration file
  6.  
  7. CALL Send("This is a demo of the new prompts!", No, Yes, 13)            ' Display text
  8. CALL NL(1)                                                              ' Display one blank line
  9. CALL EntryIncomm("Enter some text (30 chars max):", 30, 15, 10)         ' Make field entry prompt
  10. CALL Send("You typed:" + ARG$, No, Yes, 14)                             ' Show what was inputted
  11. CALL PromptIncomm("Do you like this", Default1, 15, 1, 11)              ' Make ( ) input prompt
  12. IF ARG$ = "" OR ARG$ = "N" OR ARG$ = "n" THEN
  13.    CALL Send("You said NO! Why did you say that?", Yes, Yes, 12)        ' Show "default" response
  14. ELSE
  15.    CALL Send("Good! I'm glad you're pleased!", No, Yes, 14)             ' Show yes response
  16. END IF
  17.  
  18. CALL ExitDoor                                                           ' End door
  19.  
  20.